home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / cmpinline.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  35KB  |  1,646 lines

  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmpinline.h"
  5. init_cmpinline(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     (void)(putprop(VV[0],VV[1],VV[2]));
  9.     (void)(putprop(VV[0],Ct,VV[3]));
  10.     (void)(putprop(VV[0],VV[4],VV[5]));
  11.     (void)(putprop(VV[0],Cnil,VV[6]));
  12.     (void)(putprop(VV[0],Cnil,VV[7]));
  13.     (void)(putprop(VV[0],Cnil,VV[8]));
  14.     (void)(putprop(VV[0],Cnil,VV[9]));
  15.     MF(VV[10],L8,start,size,data);
  16.     (void)(putprop(VV[10],VV[11],VV[12]));
  17.     (void)(putprop(VV[10],VV[13],VV[14]));
  18.     (void)(remprop(VV[10],VV[15]));
  19.     (void)(remprop(VV[10],VV[16]));
  20.     (void)(putprop(VV[10],Cnil,VV[17]));
  21.     MF(VV[18],L15,start,size,data);
  22.     (void)(putprop(VV[18],VV[19],VV[12]));
  23.     (void)(putprop(VV[18],VV[20],VV[14]));
  24.     (void)(remprop(VV[18],VV[15]));
  25.     (void)(remprop(VV[18],VV[16]));
  26.     (void)(putprop(VV[18],Cnil,VV[17]));
  27.     MF(VV[21],L22,start,size,data);
  28.     (void)(putprop(VV[21],VV[22],VV[12]));
  29.     (void)(putprop(VV[21],VV[23],VV[14]));
  30.     (void)(remprop(VV[21],VV[15]));
  31.     (void)(remprop(VV[21],VV[16]));
  32.     (void)(putprop(VV[21],Cnil,VV[17]));
  33.     MF(VV[24],L29,start,size,data);
  34.     (void)(putprop(VV[24],VV[25],VV[12]));
  35.     (void)(putprop(VV[24],VV[26],VV[14]));
  36.     (void)(remprop(VV[24],VV[15]));
  37.     (void)(remprop(VV[24],VV[16]));
  38.     (void)(putprop(VV[24],Cnil,VV[17]));
  39.     (void)(putprop(VV[0],VV[27],VV[28]));
  40.     MF(VV[94],L37,start,size,data);
  41.     (void)(putprop(VV[0],VV[29],VV[30]));
  42.     MF(VV[95],L39,start,size,data);
  43.     MF(VV[96],L40,start,size,data);
  44.     (void)(putprop(VV[0],Cnil,VV[31]));
  45.     VV[32]->s.s_stype=(short)stp_special;
  46.     if(VV[32]->s.s_dbind == OBJNULL){
  47.     vs_base=vs_top;
  48.     L37();
  49.     vs_top=sup;
  50.     VV[32]->s.s_dbind = vs_base[0];}
  51.     MF(VV[97],L43,start,size,data);
  52.     MF(VV[98],L44,start,size,data);
  53.     MF(VV[99],L45,start,size,data);
  54.     VV[34]->s.s_stype=(short)stp_special;
  55.     if(VV[34]->s.s_dbind == OBJNULL){
  56.     VV[34]->s.s_dbind = Cnil;}
  57.     VV[36]->s.s_stype=(short)stp_special;
  58.     if(VV[36]->s.s_dbind == OBJNULL){
  59.     VV[36]->s.s_dbind = VV[35];}
  60.     MF(VV[100],L46,start,size,data);
  61.     MF(VV[101],L47,start,size,data);
  62.     MF(VV[102],L48,start,size,data);
  63.     MF(VV[103],L49,start,size,data);
  64.     MF(VV[104],L50,start,size,data);
  65.     MF(VV[105],L51,start,size,data);
  66.     MF(VV[106],L52,start,size,data);
  67.     (void)(putprop(VV[64],VV[77],VV[78]));
  68.     (void)(putprop(VV[59],VV[79],VV[78]));
  69.     (void)(putprop(VV[60],VV[80],VV[78]));
  70.     (void)(putprop(VV[61],VV[81],VV[78]));
  71.     (void)(putprop(VV[62],VV[82],VV[78]));
  72.     (void)(putprop(VV[63],VV[83],VV[78]));
  73.     MF(VV[107],L59,start,size,data);
  74.     MF(VV[77],L60,start,size,data);
  75.     MF(VV[79],L61,start,size,data);
  76.     MF(VV[80],L62,start,size,data);
  77.     MF(VV[81],L63,start,size,data);
  78.     MF(VV[82],L64,start,size,data);
  79.     MF(VV[83],L65,start,size,data);
  80.     MF(VV[108],L66,start,size,data);
  81.     MF(VV[109],L67,start,size,data);
  82.     MF(VV[110],L68,start,size,data);
  83.     MF(VV[111],L69,start,size,data);
  84.     vs_top=vs_base=base;
  85. }
  86. /*    function definition for INFO-CHANGED-VARS    */
  87.  
  88. static L8()
  89. {    register object *base=vs_base;
  90.     register object *sup=base+VM3;
  91.     vs_reserve(VM3);
  92.     check_arg(1);
  93.     vs_top=sup;
  94. TTL:;
  95.     base[1]= structure_ref(base[0],VV[0],0);
  96.     vs_top=(vs_base=base+1)+1;
  97.     return;
  98. }
  99. /*    function definition for INFO-REFERRED-VARS    */
  100.  
  101. static L15()
  102. {    register object *base=vs_base;
  103.     register object *sup=base+VM4;
  104.     vs_reserve(VM4);
  105.     check_arg(1);
  106.     vs_top=sup;
  107. TTL:;
  108.     base[1]= structure_ref(base[0],VV[0],1);
  109.     vs_top=(vs_base=base+1)+1;
  110.     return;
  111. }
  112. /*    function definition for INFO-TYPE    */
  113.  
  114. static L22()
  115. {    register object *base=vs_base;
  116.     register object *sup=base+VM5;
  117.     vs_reserve(VM5);
  118.     check_arg(1);
  119.     vs_top=sup;
  120. TTL:;
  121.     base[1]= structure_ref(base[0],VV[0],2);
  122.     vs_top=(vs_base=base+1)+1;
  123.     return;
  124. }
  125. /*    function definition for INFO-SP-CHANGE    */
  126.  
  127. static L29()
  128. {    register object *base=vs_base;
  129.     register object *sup=base+VM6;
  130.     vs_reserve(VM6);
  131.     check_arg(1);
  132.     vs_top=sup;
  133. TTL:;
  134.     base[1]= structure_ref(base[0],VV[0],3);
  135.     vs_top=(vs_base=base+1)+1;
  136.     return;
  137. }
  138. /*    function definition for MAKE-INFO    */
  139.  
  140. static L37()
  141. {    register object *base=vs_base;
  142.     register object *sup=base+VM7;
  143.     vs_reserve(VM7);
  144.     parse_key(vs_base,FALSE,FALSE,4,VV[112],VV[113],VV[114],VV[115]);
  145.     vs_top=sup;
  146.     if(base[6]==Cnil){
  147.     base[2]= Ct;
  148.     }else{}
  149.     base[8]= VV[0];
  150.     base[9]= base[0];
  151.     base[10]= base[1];
  152.     base[11]= base[2];
  153.     base[12]= base[3];
  154.     vs_top=(vs_base=base+8)+5;
  155.     siLmake_structure();
  156.     return;
  157. }
  158. /*    function definition for COPY-INFO    */
  159.  
  160. static L39()
  161. {    register object *base=vs_base;
  162.     register object *sup=base+VM8;
  163.     vs_reserve(VM8);
  164.     check_arg(1);
  165.     vs_top=sup;
  166. TTL:;
  167.     base[1]= base[0];
  168.     base[2]= VV[0];
  169.     symlispcall_no_event(VV[116],base+1,2);
  170.     return;
  171. }
  172. /*    function definition for INFO-P    */
  173.  
  174. static L40()
  175. {    register object *base=vs_base;
  176.     register object *sup=base+VM9;
  177.     vs_reserve(VM9);
  178.     check_arg(1);
  179.     vs_top=sup;
  180. TTL:;
  181.     base[1]= base[0];
  182.     vs_top=(vs_base=base+1)+1;
  183.     siLstructurep();
  184.     vs_top=sup;
  185.     if((vs_base[0])!=Cnil){
  186.     goto T53;}
  187.     base[1]= Cnil;
  188.     vs_top=(vs_base=base+1)+1;
  189.     return;
  190. T53:;
  191.     base[2]= base[0];
  192.     vs_top=(vs_base=base+2)+1;
  193.     siLstructure_name();
  194.     vs_top=sup;
  195.     base[1]= vs_base[0];
  196. T59:;
  197.     if((base[1])!=Cnil){
  198.     goto T60;}
  199.     base[2]= Cnil;
  200.     vs_top=(vs_base=base+2)+1;
  201.     return;
  202. T60:;
  203.     if(!(base[1]==VV[0])){
  204.     goto T64;}
  205.     base[2]= Ct;
  206.     vs_top=(vs_base=base+2)+1;
  207.     return;
  208. T64:;
  209.     base[1]= get(base[1],VV[6],Cnil);
  210.     goto T59;
  211. }
  212. /*    function definition for ADD-INFO    */
  213.  
  214. static L43()
  215. {    register object *base=vs_base;
  216.     register object *sup=base+VM10;
  217.     vs_reserve(VM10);
  218.     check_arg(2);
  219.     vs_top=sup;
  220. TTL:;
  221.     base[2]= append(structure_ref(base[1],VV[0],0),structure_ref(base[0],VV[0],0));
  222.     structure_set(base[0],VV[0],0,base[2]);
  223.     base[2]= append(structure_ref(base[1],VV[0],1),structure_ref(base[0],VV[0],1));
  224.     structure_set(base[0],VV[0],1,base[2]);
  225.     if((structure_ref(base[1],VV[0],3))==Cnil){
  226.     goto T74;}
  227.     structure_set(base[0],VV[0],3,Ct);
  228.     base[2]= Ct;
  229.     vs_top=(vs_base=base+2)+1;
  230.     return;
  231. T74:;
  232.     base[2]= Cnil;
  233.     vs_top=(vs_base=base+2)+1;
  234.     return;
  235. }
  236. /*    function definition for ARGS-INFO-CHANGED-VARS    */
  237.  
  238. static L44()
  239. {    register object *base=vs_base;
  240.     register object *sup=base+VM11;
  241.     vs_reserve(VM11);
  242.     check_arg(2);
  243.     vs_top=sup;
  244. TTL:;
  245.     {object V1= structure_ref(base[0],VV[33],1);
  246.     if((V1== VV[117])
  247.     || (V1== VV[70])
  248.     || (V1== VV[118])
  249.     || (V1== VV[71])
  250.     || (V1== VV[72]))goto T77;
  251.     if((V1!= VV[42]))goto T76;
  252. T77:;
  253.     {object V2;
  254.     object V3;
  255.     V2= base[1];
  256.     V3= car((V2));
  257. T81:;
  258.     if(!(endp((V2)))){
  259.     goto T82;}
  260.     base[2]= Cnil;
  261.     vs_top=(vs_base=base+2)+1;
  262.     return;
  263. T82:;
  264.     {object x= base[0],V4= structure_ref(cadr((V3)),VV[0],0);
  265.     while(!endp(V4))
  266.     if(eql(x,V4->c.c_car)){
  267.     goto T88;
  268.     }else V4=V4->c.c_cdr;
  269.     goto T86;}
  270. T88:;
  271.     base[2]= Ct;
  272.     vs_top=(vs_base=base+2)+1;
  273.     return;
  274. T86:;
  275.     V2= cdr((V2));
  276.     V3= car((V2));
  277.     goto T81;}
  278. T76:;
  279.     if((V1!= VV[119]))goto T94;
  280.     base[2]= Cnil;
  281.     vs_top=(vs_base=base+2)+1;
  282.     return;
  283. T94:;
  284.     {object V5;
  285.     object V6;
  286.     V5= base[1];
  287.     V6= car((V5));
  288. T98:;
  289.     if(!(endp((V5)))){
  290.     goto T99;}
  291.     base[2]= Cnil;
  292.     vs_top=(vs_base=base+2)+1;
  293.     return;
  294. T99:;
  295.     {object x= base[0],V7= structure_ref(cadr((V6)),VV[0],0);
  296.     while(!endp(V7))
  297.     if(eql(x,V7->c.c_car)){
  298.     goto T104;
  299.     }else V7=V7->c.c_cdr;}
  300.     if((structure_ref(cadr((V6)),VV[0],3))==Cnil){
  301.     goto T103;}
  302. T104:;
  303.     base[2]= Ct;
  304.     vs_top=(vs_base=base+2)+1;
  305.     return;
  306. T103:;
  307.     V5= cdr((V5));
  308.     V6= car((V5));
  309.     goto T98;}}
  310. }
  311. /*    function definition for ARGS-INFO-REFERRED-VARS    */
  312.  
  313. static L45()
  314. {    register object *base=vs_base;
  315.     register object *sup=base+VM12;
  316.     vs_reserve(VM12);
  317.     check_arg(2);
  318.     vs_top=sup;
  319. TTL:;
  320.     {object V8= structure_ref(base[0],VV[33],1);
  321.     if((V8== VV[117])
  322.     || (V8== VV[119])
  323.     || (V8== VV[70])
  324.     || (V8== VV[118])
  325.     || (V8== VV[71]))goto T114;
  326.     if((V8!= VV[72])
  327.     && (V8!= VV[42]))goto T113;
  328. T114:;
  329.     {object V9;
  330.     object V10;
  331.     V9= base[1];
  332.     V10= car((V9));
  333. T118:;
  334.     if(!(endp((V9)))){
  335.     goto T119;}
  336.     base[2]= Cnil;
  337.     vs_top=(vs_base=base+2)+1;
  338.     return;
  339. T119:;
  340.     {object x= base[0],V11= structure_ref(cadr((V10)),VV[0],1);
  341.     while(!endp(V11))
  342.     if(eql(x,V11->c.c_car)){
  343.     goto T125;
  344.     }else V11=V11->c.c_cdr;
  345.     goto T123;}
  346. T125:;
  347.     base[2]= Ct;
  348.     vs_top=(vs_base=base+2)+1;
  349.     return;
  350. T123:;
  351.     V9= cdr((V9));
  352.     V10= car((V9));
  353.     goto T118;}
  354. T113:;
  355.     {object V12;
  356.     object V13;
  357.     V12= base[1];
  358.     V13= car((V12));
  359. T134:;
  360.     if(!(endp((V12)))){
  361.     goto T135;}
  362.     base[2]= Cnil;
  363.     vs_top=(vs_base=base+2)+1;
  364.     return;
  365. T135:;
  366.     {object x= base[0],V14= structure_ref(cadr((V13)),VV[0],1);
  367.     while(!endp(V14))
  368.     if(eql(x,V14->c.c_car)){
  369.     goto T140;
  370.     }else V14=V14->c.c_cdr;}
  371.     if((structure_ref(cadr((V13)),VV[0],3))==Cnil){
  372.     goto T139;}
  373. T140:;
  374.     base[2]= Ct;
  375.     vs_top=(vs_base=base+2)+1;
  376.     return;
  377. T139:;
  378.     V12= cdr((V12));
  379.     V13= car((V12));
  380.     goto T134;}}
  381. }
  382. /*    function definition for INLINE-ARGS    */
  383.  
  384. static L46()
  385. {    register object *base=vs_base;
  386.     register object *sup=base+VM13;
  387.     vs_reserve(VM13);
  388.     bds_check;
  389.     check_arg(2);
  390.     vs_top=sup;
  391. TTL:;
  392.     base[2]= Cnil;
  393.     base[3]= Cnil;
  394.     {object V15;
  395.     object V16;
  396.     V15= base[0];
  397.     V16= base[1];
  398. T152:;
  399.     if(!(endp((V15)))){
  400.     goto T153;}
  401.     base[4]= reverse(base[2]);
  402.     vs_top=(vs_base=base+4)+1;
  403.     return;
  404. T153:;
  405.     {object V17;
  406.     object V18;
  407.     V17= car((V15));
  408.     V18= car((V16));
  409.     {object V19= car((V17));
  410.     if((V19!= VV[49]))goto T160;
  411.     base[5]= caddr((V17));
  412.     base[6]= (V18);
  413.     vs_top=(vs_base=base+5)+2;
  414.     L47();
  415.     vs_top=sup;
  416.     base[4]= vs_base[0];
  417.     base[2]= make_cons(base[4],base[2]);
  418.     goto T157;
  419. T160:;
  420.     if((V19!= VV[33]))goto T165;
  421.     base[4]= caaddr((V17));
  422.     base[5]= cdr((V15));
  423.     vs_top=(vs_base=base+4)+2;
  424.     L44();
  425.     vs_top=sup;
  426.     if((vs_base[0])==Cnil){
  427.     goto T167;}
  428.     {object x= structure_ref(caaddr((V17)),VV[33],1),V20= VV[37];
  429.     while(!endp(V20))
  430.     if(eql(x,V20->c.c_car)){
  431.     goto T174;
  432.     }else V20=V20->c.c_cdr;
  433.     goto T172;}
  434. T174:;
  435.     if(!((V18)==structure_ref(caaddr((V17)),VV[33],1))){
  436.     goto T172;}
  437.     setq(VV[38],number_plus(symbol_value(VV[38]),VV[39]));
  438.     base[4]= symbol_value(VV[38]);
  439.     princ_str("\n    {",VV[40]);
  440.     base[5]=symbol_function(VV[120]);
  441.     base[7]= (V18);
  442.     base[6]= simple_symlispcall_no_event(VV[121],base+7,1);
  443.     (void)simple_lispcall_no_event(base+5,1);
  444.     princ_char(86,VV[40]);
  445.     base[5]= base[4];
  446.     (void)simple_symlispcall_no_event(VV[120],base+5,1);
  447.     princ_str("= V",VV[40]);
  448.     base[5]= structure_ref(caaddr((V17)),VV[33],4);
  449.     (void)simple_symlispcall_no_event(VV[120],base+5,1);
  450.     princ_char(59,VV[40]);
  451.     base[5]= list(2,VV[41],base[4]);
  452.     base[2]= make_cons(base[5],base[2]);
  453.     setq(VV[36],number_plus(symbol_value(VV[36]),VV[39]));
  454.     goto T157;
  455. T172:;
  456.     if(!(structure_ref(caaddr((V17)),VV[33],1)==VV[42])){
  457.     goto T194;}
  458.     setq(VV[38],number_plus(symbol_value(VV[38]),VV[39]));
  459.     base[4]= symbol_value(VV[38]);
  460.     princ_str("\n    {object V",VV[40]);
  461.     base[5]= base[4];
  462.     (void)simple_symlispcall_no_event(VV[120],base+5,1);
  463.     princ_str("= V",VV[40]);
  464.     base[5]= structure_ref(caaddr((V17)),VV[33],4);
  465.     (void)simple_symlispcall_no_event(VV[120],base+5,1);
  466.     princ_char(59,VV[40]);
  467.     base[6]= list(2,VV[41],base[4]);
  468.     base[7]= (V18);
  469.     vs_top=(vs_base=base+6)+2;
  470.     L47();
  471.     vs_top=sup;
  472.     base[5]= vs_base[0];
  473.     base[2]= make_cons(base[5],base[2]);
  474.     setq(VV[36],number_plus(symbol_value(VV[36]),VV[39]));
  475.     goto T157;
  476. T194:;
  477.     base[5]= simple_symlispcall_no_event(VV[122],base+6,0);
  478.     base[4]= list(2,VV[43],base[5]);
  479.     princ_str("\n    ",VV[40]);
  480.     base[5]= base[4];
  481.     (void)simple_symlispcall_no_event(VV[120],base+5,1);
  482.     princ_str("= ",VV[40]);
  483.     base[5]= caaddr((V17));
  484.     base[6]= cadr(caddr((V17)));
  485.     (void)simple_symlispcall_no_event(VV[123],base+5,2);
  486.     princ_char(59,VV[40]);
  487.     base[6]= base[4];
  488.     base[7]= (V18);
  489.     vs_top=(vs_base=base+6)+2;
  490.     L47();
  491.     vs_top=sup;
  492.     base[5]= vs_base[0];
  493.     base[2]= make_cons(base[5],base[2]);
  494.     goto T157;
  495. T167:;
  496.     {object x= structure_ref(caaddr((V17)),VV[33],1),V21= VV[44];
  497.     while(!endp(V21))
  498.     if(eql(x,V21->c.c_car)){
  499.     goto T231;
  500.     }else V21=V21->c.c_cdr;
  501.     goto T229;}
  502. T231:;
  503.     if((V18)==structure_ref(caaddr((V17)),VV[33],1)){
  504.     goto T229;}
  505.     base[5]= simple_symlispcall_no_event(VV[122],base+6,0);
  506.     base[4]= list(2,VV[43],base[5]);
  507.     princ_str("\n    ",VV[40]);
  508.     base[5]= base[4];
  509.     (void)simple_symlispcall_no_event(VV[120],base+5,1);
  510.     princ_str("= ",VV[40]);
  511.     base[5]= caaddr((V17));
  512.     base[6]= cadr(caddr((V17)));
  513.     (void)simple_symlispcall_no_event(VV[123],base+5,2);
  514.     princ_char(59,VV[40]);
  515.     base[6]= base[4];
  516.     base[7]= (V18);
  517.     vs_top=(vs_base=base+6)+2;
  518.     L47();
  519.     vs_top=sup;
  520.     base[5]= vs_base[0];
  521.     base[2]= make_cons(base[5],base[2]);
  522.     goto T157;
  523. T229:;
  524.     base[5]= make_cons(VV[33],caddr((V17)));
  525.     base[6]= (V18);
  526.     vs_top=(vs_base=base+5)+2;
  527.     L47();
  528.     vs_top=sup;
  529.     base[4]= vs_base[0];
  530.     base[2]= make_cons(base[4],base[2]);
  531.     goto T157;
  532. T165:;
  533.     if((V19!= VV[124]))goto T253;
  534.     {object V22;
  535.     V22= caddr((V17));
  536.     base[4]= (V22);
  537.     if((simple_symlispcall_no_event(VV[125],base+4,1))!=Cnil){
  538.     goto T258;}
  539.     goto T255;
  540. T258:;
  541.     base[4]= (V22);
  542.     base[5]= cadddr((V17));
  543.     base[6]= structure_ref(cadr((V17)),VV[0],2);
  544.     vs_top=(vs_base=base+4)+3;
  545.     L49();
  546.     vs_top=sup;
  547.     base[3]= vs_base[0];
  548.     if((base[3])==Cnil){
  549.     goto T255;}}
  550.     base[5]= base[3];
  551.     base[6]= cadddr((V17));
  552.     vs_top=(vs_base=base+5)+2;
  553.     L48();
  554.     vs_top=sup;
  555.     base[4]= vs_base[0];
  556.     if((cadddr(base[3]))!=Cnil){
  557.     goto T268;}
  558.     {object x= cadr(base[3]),V23= VV[45];
  559.     while(!endp(V23))
  560.     if(eql(x,V23->c.c_car)){
  561.     goto T273;
  562.     }else V23=V23->c.c_cdr;
  563.     goto T269;}
  564. T273:;
  565.     if((V18)==cadr(base[3])){
  566.     goto T269;}
  567. T268:;
  568.     base[6]= simple_symlispcall_no_event(VV[122],base+7,0);
  569.     base[5]= list(2,VV[43],base[6]);
  570.     princ_str("\n    ",VV[40]);
  571.     base[6]= base[5];
  572.     (void)simple_symlispcall_no_event(VV[120],base+6,1);
  573.     princ_str("= ",VV[40]);
  574.     base[6]= base[4];
  575.     (void)simple_symlispcall_no_event(VV[120],base+6,1);
  576.     princ_char(59,VV[40]);
  577.     base[7]= base[5];
  578.     base[8]= (V18);
  579.     vs_top=(vs_base=base+7)+2;
  580.     L47();
  581.     vs_top=sup;
  582.     base[6]= vs_base[0];
  583.     base[2]= make_cons(base[6],base[2]);
  584.     goto T157;
  585. T269:;
  586.     base[5]= cdr((V15));
  587.     base[6]= cdr((V16));
  588.     vs_top=(vs_base=base+5)+2;
  589.     L51();
  590.     vs_top=sup;
  591.     if((vs_base[0])!=Cnil){
  592.     goto T289;}
  593.     if((caddr(base[3]))==Cnil){
  594.     goto T290;}
  595.     if((cdr((V15)))==Cnil){
  596.     goto T290;}
  597. T289:;
  598.     setq(VV[38],number_plus(symbol_value(VV[38]),VV[39]));
  599.     base[5]= symbol_value(VV[38]);
  600.     princ_str("\n    {",VV[40]);
  601.     base[6]=symbol_function(VV[120]);
  602.     base[8]= (V18);
  603.     base[7]= simple_symlispcall_no_event(VV[121],base+8,1);
  604.     (void)simple_lispcall_no_event(base+6,1);
  605.     princ_char(86,VV[40]);
  606.     base[6]= base[5];
  607.     (void)simple_symlispcall_no_event(VV[120],base+6,1);
  608.     princ_str("= ",VV[40]);
  609.     {object V24= (V18);
  610.     if((V24!= VV[70]))goto T310;
  611.     base[6]= base[4];
  612.     (void)simple_symlispcall_no_event(VV[126],base+6,1);
  613.     goto T309;
  614. T310:;
  615.     if((V24!= VV[118]))goto T312;
  616.     base[6]= base[4];
  617.     (void)simple_symlispcall_no_event(VV[127],base+6,1);
  618.     goto T309;
  619. T312:;
  620.     if((V24!= VV[71]))goto T314;
  621.     base[6]= base[4];
  622.     (void)simple_symlispcall_no_event(VV[128],base+6,1);
  623.     goto T309;
  624. T314:;
  625.     if((V24!= VV[72]))goto T316;
  626.     base[6]= base[4];
  627.     (void)simple_symlispcall_no_event(VV[129],base+6,1);
  628.     goto T309;
  629. T316:;
  630.     base[6]= base[4];
  631.     (void)simple_symlispcall_no_event(VV[78],base+6,1);}
  632. T309:;
  633.     princ_char(59,VV[40]);
  634.     base[6]= list(2,VV[41],base[5]);
  635.     base[2]= make_cons(base[6],base[2]);
  636.     setq(VV[36],number_plus(symbol_value(VV[36]),VV[39]));
  637.     goto T157;
  638. T290:;
  639.     base[6]= base[4];
  640.     base[7]= (V18);
  641.     vs_top=(vs_base=base+6)+2;
  642.     L47();
  643.     vs_top=sup;
  644.     base[5]= vs_base[0];
  645.     base[2]= make_cons(base[5],base[2]);
  646.     goto T157;
  647. T255:;
  648.     base[5]= simple_symlispcall_no_event(VV[122],base+6,0);
  649.     base[4]= list(2,VV[43],base[5]);
  650.     bds_bind(VV[46],base[4]);
  651.     base[6]= (V17);
  652.     base[7]= simple_symlispcall_no_event(VV[130],base+6,1);
  653.     bds_unwind1;
  654.     base[6]= base[4];
  655.     base[7]= (V18);
  656.     vs_top=(vs_base=base+6)+2;
  657.     L47();
  658.     vs_top=sup;
  659.     base[5]= vs_base[0];
  660.     base[2]= make_cons(base[5],base[2]);
  661.     goto T157;
  662. T253:;
  663.     if((V19!= VV[47]))goto T336;
  664.     base[7]= make_cons(caddr((V17)),Cnil);
  665.     base[8]= VV[48];
  666.     vs_top=(vs_base=base+7)+2;
  667.     L46();
  668.     vs_top=sup;
  669.     base[6]= vs_base[0];
  670.     base[5]= list(4,VV[47],car(base[6]),cadddr((V17)),car(cddddr((V17))));
  671.     base[6]= (V18);
  672.     vs_top=(vs_base=base+5)+2;
  673.     L47();
  674.     vs_top=sup;
  675.     base[4]= vs_base[0];
  676.     base[2]= make_cons(base[4],base[2]);
  677.     goto T157;
  678. T336:;
  679.     if((V19!= VV[131]))goto T344;
  680.     base[4]= caddr((V17));
  681.     base[5]= cadddr((V17));
  682.     base[6]= make_cons(VV[33],base[4]);
  683.     bds_bind(VV[46],base[6]);
  684.     base[7]= base[5];
  685.     base[8]= simple_symlispcall_no_event(VV[130],base+7,1);
  686.     bds_unwind1;
  687.     if(!(car(base[5])==VV[49])){
  688.     goto T351;}
  689.     base[7]= caddr(base[5]);
  690.     base[8]= (V18);
  691.     vs_top=(vs_base=base+7)+2;
  692.     L47();
  693.     vs_top=sup;
  694.     base[6]= vs_base[0];
  695.     base[2]= make_cons(base[6],base[2]);
  696.     goto T157;
  697. T351:;
  698.     base[6]= list(3,VV[33],cadr((V17)),base[4]);
  699.     V15= listA(3,(V17),base[6],cdr((V15)));
  700.     V16= listA(3,(V18),(V18),(V16));
  701.     goto T157;
  702. T344:;
  703.     base[5]= simple_symlispcall_no_event(VV[122],base+6,0);
  704.     base[4]= list(2,VV[43],base[5]);
  705.     bds_bind(VV[46],base[4]);
  706.     base[6]= (V17);
  707.     base[7]= simple_symlispcall_no_event(VV[130],base+6,1);
  708.     bds_unwind1;
  709.     base[6]= base[4];
  710.     base[7]= (V18);
  711.     vs_top=(vs_base=base+6)+2;
  712.     L47();
  713.     vs_top=sup;
  714.     base[5]= vs_base[0];
  715.     base[2]= make_cons(base[5],base[2]);}}
  716. T157:;
  717.     V15= cdr((V15));
  718.     V16= cdr((V16));
  719.     goto T152;}
  720. }
  721. /*    function definition for COERCE-LOC    */
  722.  
  723. static L47()
  724. {    register object *base=vs_base;
  725.     register object *sup=base+VM14;
  726.     vs_reserve(VM14);
  727.     check_arg(2);
  728.     vs_top=sup;
  729. TTL:;
  730.     {object V25= base[1];
  731.     if((V25!= VV[70]))goto T372;
  732.     base[2]= list(2,VV[50],base[0]);
  733.     vs_top=(vs_base=base+2)+1;
  734.     return;
  735. T372:;
  736.     if((V25!= VV[118]))goto T373;
  737.     base[2]= list(2,VV[51],base[0]);
  738.     vs_top=(vs_base=base+2)+1;
  739.     return;
  740. T373:;
  741.     if((V25!= VV[71]))goto T374;
  742.     base[2]= list(2,VV[52],base[0]);
  743.     vs_top=(vs_base=base+2)+1;
  744.     return;
  745. T374:;
  746.     if((V25!= VV[72]))goto T375;
  747.     base[2]= list(2,VV[53],base[0]);
  748.     vs_top=(vs_base=base+2)+1;
  749.     return;
  750. T375:;
  751.     vs_top=(vs_base=base+0)+1;
  752.     return;}
  753. }
  754. /*    function definition for GET-INLINE-LOC    */
  755.  
  756. static L48()
  757. {    register object *base=vs_base;
  758.     register object *sup=base+VM15;
  759.     vs_reserve(VM15);
  760.     check_arg(2);
  761.     vs_top=sup;
  762. TTL:;
  763.     base[3]= base[1];
  764.     base[4]= car(base[0]);
  765.     vs_top=(vs_base=base+3)+2;
  766.     L46();
  767.     vs_top=sup;
  768.     base[2]= vs_base[0];
  769.     base[3]= car(cddddr(base[0]));
  770.     if(!(type_of(base[3])==t_string)){
  771.     goto T380;}
  772.     base[4]= elt(base[3],0);
  773.     if(!((char_code(base[4]))==(64))){
  774.     goto T380;}
  775.     {int V26;
  776.     V26= 1;
  777.     base[4]= Cnil;
  778.     {unsigned char V27;
  779.     V27= char_code(elt(base[3],V26));
  780. T389:;
  781.     if(!((V27)==(59))){
  782.     goto T390;}
  783.     V26= (V26)+(1);
  784.     goto T386;
  785. T390:;
  786.     base[5]= make_fixnum((V27)-(48));
  787.     base[4]= make_cons(base[5],base[4]);
  788.     V26= (V26)+(1);
  789.     V27= char_code(elt(base[3],V26));
  790.     goto T389;}
  791. T386:;
  792.     {object V28;
  793.     int V29;
  794.     V28= base[2];
  795.     V29= 0;
  796.     base[5]= Cnil;
  797. T405:;
  798.     if(!(endp((V28)))){
  799.     goto T406;}
  800.     base[2]= reverse(base[5]);
  801.     goto T380;
  802. T406:;
  803.     base[6]= make_fixnum(V29);
  804.     {object x= base[6],V30= base[4];
  805.     while(!endp(V30))
  806.     if(eql(x,V30->c.c_car)){
  807.     goto T414;
  808.     }else V30=V30->c.c_cdr;
  809.     goto T413;}
  810. T414:;
  811.     {object V31;
  812.     object V32;
  813.     V31= car((V28));
  814.     V32= (V31);
  815.     base[6]= Cnil;
  816.     if(!(type_of((V31))==t_cons)){
  817.     goto T417;}
  818.     {object x= car((V31)),V33= VV[57];
  819.     while(!endp(V33))
  820.     if(eql(x,V33->c.c_car)){
  821.     goto T421;
  822.     }else V33=V33->c.c_cdr;
  823.     goto T417;}
  824. T421:;
  825.     base[6]= car((V31));
  826.     V32= cadr((V31));
  827. T417:;
  828.     if(!(type_of((V32))==t_cons)){
  829.     goto T426;}
  830.     {object x= car((V32)),V34= VV[58];
  831.     while(!endp(V34))
  832.     if(eql(x,V34->c.c_car)){
  833.     goto T430;
  834.     }else V34=V34->c.c_cdr;
  835.     goto T426;}
  836. T430:;
  837.     if((cadr((V32)))==Cnil){
  838.     goto T426;}
  839.     princ_str("\n    {",VV[40]);
  840.     setq(VV[36],number_plus(symbol_value(VV[36]),VV[39]));
  841.     setq(VV[38],number_plus(symbol_value(VV[38]),VV[39]));
  842.     base[7]= symbol_value(VV[38]);
  843.     base[8]= list(2,VV[41],base[7]);
  844.     base[5]= make_cons(base[8],base[5]);
  845.     {object V35= base[6];
  846.     if((V35!= Cnil))goto T441;
  847.     princ_str("object V",VV[40]);
  848.     base[8]= base[7];
  849.     (void)simple_symlispcall_no_event(VV[120],base+8,1);
  850.     princ_str("= ",VV[40]);
  851.     base[8]= (V31);
  852.     (void)simple_symlispcall_no_event(VV[78],base+8,1);
  853.     goto T436;
  854. T441:;
  855.     if((V35!= VV[50]))goto T448;
  856.     princ_str("int V",VV[40]);
  857.     base[8]= base[7];
  858.     (void)simple_symlispcall_no_event(VV[120],base+8,1);
  859.     princ_str("= ",VV[40]);
  860.     base[8]= (V32);
  861.     (void)simple_symlispcall_no_event(VV[126],base+8,1);
  862.     goto T436;
  863. T448:;
  864.     if((V35!= VV[51]))goto T455;
  865.     princ_str("unsigned char V",VV[40]);
  866.     base[8]= base[7];
  867.     (void)simple_symlispcall_no_event(VV[120],base+8,1);
  868.     princ_str("= ",VV[40]);
  869.     base[8]= (V32);
  870.     (void)simple_symlispcall_no_event(VV[127],base+8,1);
  871.     goto T436;
  872. T455:;
  873.     if((V35!= VV[52]))goto T462;
  874.     princ_str("double V",VV[40]);
  875.     base[8]= base[7];
  876.     (void)simple_symlispcall_no_event(VV[120],base+8,1);
  877.     princ_str("= ",VV[40]);
  878.     base[8]= (V32);
  879.     (void)simple_symlispcall_no_event(VV[128],base+8,1);
  880.     goto T436;
  881. T462:;
  882.     if((V35!= VV[53]))goto T469;
  883.     princ_str("float V",VV[40]);
  884.     base[8]= base[7];
  885.     (void)simple_symlispcall_no_event(VV[120],base+8,1);
  886.     princ_str("= ",VV[40]);
  887.     base[8]= (V32);
  888.     (void)simple_symlispcall_no_event(VV[129],base+8,1);
  889.     goto T436;
  890. T469:;
  891.     (void)simple_symlispcall_no_event(VV[132],base+8,0);}
  892. T436:;
  893.     princ_char(59,VV[40]);
  894.     goto T411;
  895. T426:;
  896.     base[5]= make_cons((V31),base[5]);
  897.     goto T411;}
  898. T413:;
  899.     base[5]= make_cons(car((V28)),base[5]);
  900. T411:;
  901.     V28= cdr((V28));
  902.     V29= (V29)+1;
  903.     goto T405;}}
  904. T380:;
  905.     {object V36= cadr(base[0]);
  906.     if((V36!= VV[73]))goto T484;
  907.     base[4]= VV[59];
  908.     goto T483;
  909. T484:;
  910.     if((V36!= VV[70]))goto T485;
  911.     base[4]= VV[60];
  912.     goto T483;
  913. T485:;
  914.     if((V36!= VV[118]))goto T486;
  915.     base[4]= VV[61];
  916.     goto T483;
  917. T486:;
  918.     if((V36!= VV[71]))goto T487;
  919.     base[4]= VV[62];
  920.     goto T483;
  921. T487:;
  922.     if((V36!= VV[72]))goto T488;
  923.     base[4]= VV[63];
  924.     goto T483;
  925. T488:;
  926.     base[4]= VV[64];}
  927. T483:;
  928.     base[5]= list(4,base[4],caddr(base[0]),base[3],base[2]);
  929.     vs_top=(vs_base=base+5)+1;
  930.     return;
  931. }
  932. /*    function definition for GET-INLINE-INFO    */
  933.  
  934. static L49()
  935. {    register object *base=vs_base;
  936.     register object *sup=base+VM16;
  937.     vs_reserve(VM16);
  938.     check_arg(3);
  939.     vs_top=sup;
  940. TTL:;
  941.     base[3]= Cnil;
  942.     base[4]= Cnil;
  943.     {object V37;
  944.     object V38= base[1];
  945.     if(endp(V38)){
  946.     base[1]= Cnil;
  947.     goto T490;}
  948.     base[5]=V37=MMcons(Cnil,Cnil);
  949. T491:;
  950.     (V37->c.c_car)= structure_ref(cadr((V38->c.c_car)),VV[0],2);
  951.     if(endp(V38=MMcdr(V38))){
  952.     base[1]= base[5];
  953.     goto T490;}
  954.     V37=MMcdr(V37)=MMcons(Cnil,Cnil);
  955.     goto T491;}
  956. T490:;
  957.     {object x= base[0],V39= symbol_value(VV[34]);
  958.     while(!endp(V39))
  959.     if(eql(x,car(V39->c.c_car))){
  960.     base[3]= (V39->c.c_car);
  961.     goto T497;
  962.     }else V39=V39->c.c_cdr;
  963.     base[3]= Cnil;}
  964. T497:;
  965.     if((base[3])==Cnil){
  966.     goto T493;}
  967.     base[5]= cdr(base[3]);
  968.     base[6]= base[1];
  969.     base[7]= base[2];
  970.     vs_top=(vs_base=base+5)+3;
  971.     L50();
  972.     vs_top=sup;
  973.     base[4]= vs_base[0];
  974.     if((base[4])==Cnil){
  975.     goto T493;}
  976.     vs_top=(vs_base=base+4)+1;
  977.     return;
  978. T493:;
  979.     if((symbol_value(VV[65]))==Cnil){
  980.     goto T507;}
  981.     base[3]= get(base[0],VV[66],Cnil);
  982.     if((base[3])==Cnil){
  983.     goto T503;}
  984.     goto T505;
  985. T507:;
  986.     base[3]= get(base[0],VV[67],Cnil);
  987.     if((base[3])==Cnil){
  988.     goto T503;}
  989. T505:;
  990.     {object V40;
  991.     object V41;
  992.     V40= base[3];
  993.     V41= car((V40));
  994. T514:;
  995.     if(!(endp((V40)))){
  996.     goto T515;}
  997.     goto T503;
  998. T515:;
  999.     base[5]= (V41);
  1000.     base[6]= base[1];
  1001.     base[7]= base[2];
  1002.     vs_top=(vs_base=base+5)+3;
  1003.     L50();
  1004.     vs_top=sup;
  1005.     base[4]= vs_base[0];
  1006.     if((base[4])==Cnil){
  1007.     goto T519;}
  1008.     vs_top=(vs_base=base+4)+1;
  1009.     return;
  1010. T519:;
  1011.     V40= cdr((V40));
  1012.     V41= car((V40));
  1013.     goto T514;}
  1014. T503:;
  1015.     base[3]= get(base[0],VV[68],Cnil);
  1016.     if((base[3])==Cnil){
  1017.     goto T531;}
  1018.     {object V42;
  1019.     object V43;
  1020.     V42= base[3];
  1021.     V43= car((V42));
  1022. T538:;
  1023.     if(!(endp((V42)))){
  1024.     goto T539;}
  1025.     goto T531;
  1026. T539:;
  1027.     base[5]= (V43);
  1028.     base[6]= base[1];
  1029.     base[7]= base[2];
  1030.     vs_top=(vs_base=base+5)+3;
  1031.     L50();
  1032.     vs_top=sup;
  1033.     base[4]= vs_base[0];
  1034.     if((base[4])==Cnil){
  1035.     goto T543;}
  1036.     vs_top=(vs_base=base+4)+1;
  1037.     return;
  1038. T543:;
  1039.     V42= cdr((V42));
  1040.     V43= car((V42));
  1041.     goto T538;}
  1042. T531:;
  1043.     base[5]= Cnil;
  1044.     vs_top=(vs_base=base+5)+1;
  1045.     return;
  1046. }
  1047. /*    function definition for INLINE-TYPE-MATCHES    */
  1048.  
  1049. static L50()
  1050. {    register object *base=vs_base;
  1051.     register object *sup=base+VM17;
  1052.     vs_reserve(VM17);
  1053.     check_arg(3);
  1054.     vs_top=sup;
  1055. TTL:;
  1056.     base[3]= Cnil;
  1057.     {object V44;
  1058.     V44= car(base[0]);
  1059.     {object V45;
  1060.     object V46;
  1061.     V45= base[1];
  1062.     V46= car((V45));
  1063. T563:;
  1064.     if(!(endp((V45)))){
  1065.     goto T564;}
  1066.     if(!(endp((V44)))){
  1067.     goto T556;}
  1068.     goto T558;
  1069. T564:;
  1070.     if(!(endp((V44)))){
  1071.     goto T568;}
  1072.     goto T556;
  1073. T568:;
  1074.     if(!(car((V44))==VV[69])){
  1075.     goto T573;}
  1076.     base[4]= VV[70];
  1077.     base[5]= (V46);
  1078.     if((simple_symlispcall_no_event(VV[133],base+4,2))==Cnil){
  1079.     goto T576;}
  1080.     base[3]= make_cons(VV[70],base[3]);
  1081.     goto T571;
  1082. T576:;
  1083.     base[4]= VV[71];
  1084.     base[5]= (V46);
  1085.     if((simple_symlispcall_no_event(VV[133],base+4,2))==Cnil){
  1086.     goto T582;}
  1087.     base[3]= make_cons(VV[71],base[3]);
  1088.     goto T571;
  1089. T582:;
  1090.     base[4]= VV[72];
  1091.     base[5]= (V46);
  1092.     if((simple_symlispcall_no_event(VV[133],base+4,2))==Cnil){
  1093.     goto T588;}
  1094.     base[3]= make_cons(VV[72],base[3]);
  1095.     goto T571;
  1096. T588:;
  1097.     goto T556;
  1098. T573:;
  1099.     base[4]= car((V44));
  1100.     base[5]= (V46);
  1101.     if((simple_symlispcall_no_event(VV[133],base+4,2))==Cnil){
  1102.     goto T594;}
  1103.     base[3]= make_cons(car((V44)),base[3]);
  1104.     goto T571;
  1105. T594:;
  1106.     goto T556;
  1107. T571:;
  1108.     base[4]= car((V44));
  1109.     V44= cdr((V44));
  1110.     V45= cdr((V45));
  1111.     V46= car((V45));
  1112.     goto T563;}}
  1113. T558:;
  1114.     if(cadr(base[0])==VV[73]){
  1115.     goto T555;}
  1116.     base[4]= cadr(base[0]);
  1117.     base[5]= base[2];
  1118.     if((simple_symlispcall_no_event(VV[133],base+4,2))==Cnil){
  1119.     goto T556;}
  1120. T555:;
  1121.     base[4]= reverse(base[3]);
  1122.     base[5]= make_cons(base[4],cdr(base[0]));
  1123.     vs_top=(vs_base=base+5)+1;
  1124.     return;
  1125. T556:;
  1126.     base[4]= Cnil;
  1127.     vs_top=(vs_base=base+4)+1;
  1128.     return;
  1129. }
  1130. /*    function definition for NEED-TO-PROTECT    */
  1131.  
  1132. static L51()
  1133. {    register object *base=vs_base;
  1134.     register object *sup=base+VM18;
  1135.     vs_reserve(VM18);
  1136.     check_arg(2);
  1137.     vs_top=sup;
  1138. TTL:;
  1139.     base[2]= Cnil;
  1140.     {object V47;
  1141.     object V48;
  1142.     V47= base[0];
  1143.     V48= base[1];
  1144. T616:;
  1145.     if(!(endp((V47)))){
  1146.     goto T617;}
  1147.     base[3]= Cnil;
  1148.     vs_top=(vs_base=base+3)+1;
  1149.     return;
  1150. T617:;
  1151.     {object V49;
  1152.     V49= car((V47));
  1153.     {object V50= car((V49));
  1154.     if((V50!= VV[49]))goto T623;
  1155.     goto T621;
  1156. T623:;
  1157.     if((V50!= VV[33]))goto T624;
  1158.     base[3]= caaddr((V49));
  1159.     base[4]= cdr((V47));
  1160.     vs_top=(vs_base=base+3)+2;
  1161.     L44();
  1162.     vs_top=sup;
  1163.     if((vs_base[0])!=Cnil){
  1164.     goto T625;}
  1165.     {object x= structure_ref(caaddr((V49)),VV[33],1),V51= VV[74];
  1166.     while(!endp(V51))
  1167.     if(eql(x,V51->c.c_car)){
  1168.     goto T631;
  1169.     }else V51=V51->c.c_cdr;
  1170.     goto T621;}
  1171. T631:;
  1172.     if(car((V48))==structure_ref(caaddr((V49)),VV[33],1)){
  1173.     goto T621;}
  1174. T625:;
  1175.     base[3]= Ct;
  1176.     vs_top=(vs_base=base+3)+1;
  1177.     return;
  1178. T624:;
  1179.     if((V50!= VV[124]))goto T633;
  1180.     {object V52;
  1181.     V52= caddr((V49));
  1182.     base[3]= (V52);
  1183.     if((simple_symlispcall_no_event(VV[125],base+3,1))==Cnil){
  1184.     goto T635;}
  1185.     base[3]= (V52);
  1186.     base[4]= cadddr((V49));
  1187.     base[5]= structure_ref(cadr((V49)),VV[0],2);
  1188.     vs_top=(vs_base=base+3)+3;
  1189.     L49();
  1190.     vs_top=sup;
  1191.     base[2]= vs_base[0];
  1192.     if((base[2])==Cnil){
  1193.     goto T635;}
  1194.     if((caddr(base[2]))!=Cnil){
  1195.     goto T635;}
  1196.     if((cadddr(base[2]))!=Cnil){
  1197.     goto T635;}
  1198.     {object x= cadr(base[2]),V53= VV[75];
  1199.     while(!endp(V53))
  1200.     if(eql(x,V53->c.c_car)){
  1201.     goto T651;
  1202.     }else V53=V53->c.c_cdr;
  1203.     goto T649;}
  1204. T651:;
  1205.     if(!(car((V48))==cadr(base[2]))){
  1206.     goto T635;}
  1207. T649:;
  1208.     base[3]= cadddr((V49));
  1209.     base[4]= car(base[2]);
  1210.     vs_top=(vs_base=base+3)+2;
  1211.     L51();
  1212.     vs_top=sup;
  1213.     if((vs_base[0])==Cnil){
  1214.     goto T621;}
  1215. T635:;
  1216.     base[3]= Ct;
  1217.     vs_top=(vs_base=base+3)+1;
  1218.     return;}
  1219. T633:;
  1220.     if((V50!= VV[47]))goto T656;
  1221.     base[3]= make_cons(caddr((V49)),Cnil);
  1222.     base[4]= VV[76];
  1223.     vs_top=(vs_base=base+3)+2;
  1224.     L51();
  1225.     vs_top=sup;
  1226.     if((vs_base[0])==Cnil){
  1227.     goto T621;}
  1228.     base[3]= Ct;
  1229.     vs_top=(vs_base=base+3)+1;
  1230.     return;
  1231. T656:;
  1232.     base[3]= Ct;
  1233.     vs_top=(vs_base=base+3)+1;
  1234.     return;}}
  1235. T621:;
  1236.     V47= cdr((V47));
  1237.     V48= cdr((V48));
  1238.     goto T616;}
  1239. }
  1240. /*    function definition for CLOSE-INLINE-BLOCKS    */
  1241.  
  1242. static L52()
  1243. {    register object *base=vs_base;
  1244.     register object *sup=base+VM19;
  1245.     vs_reserve(VM19);
  1246.     check_arg(0);
  1247.     vs_top=sup;
  1248. TTL:;
  1249.     {int V54;
  1250.     int V55;
  1251.     V54= fix(symbol_value(VV[36]));
  1252.     V55= 0;
  1253. T668:;
  1254.     if(!((V55)>=(V54))){
  1255.     goto T669;}
  1256.     base[0]= Cnil;
  1257.     vs_top=(vs_base=base+0)+1;
  1258.     return;
  1259. T669:;
  1260.     princ_char(125,VV[40]);
  1261.     V55= (V55)+1;
  1262.     goto T668;}
  1263. }
  1264. /*    function definition for WT-INLINE-LOC    */
  1265.  
  1266. static L59()
  1267. {    register object *base=vs_base;
  1268.     register object *sup=base+VM20;
  1269.     vs_reserve(VM20);
  1270.     check_arg(2);
  1271.     vs_top=sup;
  1272. TTL:;
  1273.     {int V56;
  1274.     V56= 0;
  1275.     if(!(type_of(base[0])==t_string)){
  1276.     goto T680;}
  1277.     base[2]= elt(base[0],0);
  1278.     if(!((char_code(base[2]))==(64))){
  1279.     goto T682;}
  1280.     V56= 1;
  1281. T688:;
  1282.     base[2]= elt(base[0],V56);
  1283.     if(!((char_code(base[2]))==(59))){
  1284.     goto T689;}
  1285.     V56= (V56)+(1);
  1286.     goto T682;
  1287. T689:;
  1288.     V56= (V56)+(1);
  1289.     goto T688;
  1290. T682:;
  1291.     {int V57;
  1292.     V57= length(base[0]);
  1293. T700:;
  1294.     if(!((V56)>=(V57))){
  1295.     goto T701;}
  1296.     base[2]= Cnil;
  1297.     vs_top=(vs_base=base+2)+1;
  1298.     return;
  1299. T701:;
  1300.     {unsigned char V58;
  1301.     V58= char_code(elt(base[0],V56));
  1302.     if(!((V58)==(35))){
  1303.     goto T708;}
  1304.     base[3]= elt(base[0],(V56)+1);
  1305.     base[2]= nth((char_code(base[3]))-(48),base[1]);
  1306.     (void)simple_symlispcall_no_event(VV[78],base+2,1);
  1307.     V56= (V56)+(2);
  1308.     goto T705;
  1309. T708:;
  1310.     (void)(princ(code_char(V58),symbol_value(VV[40])));
  1311.     V56= (V56)+(1);}
  1312. T705:;
  1313.     goto T700;}
  1314. T680:;
  1315.     base[2]= base[0];
  1316.     {object V59;
  1317.     V59= base[1];
  1318.      vs_top=base+3;
  1319.      while(!endp(V59))
  1320.      {vs_push(car(V59));V59=cdr(V59);}
  1321.     vs_base=base+3;}
  1322.     super_funcall_no_event(base[2]);
  1323.     return;}
  1324. }
  1325. /*    function definition for WT-INLINE    */
  1326.  
  1327. static L60()
  1328. {    register object *base=vs_base;
  1329.     register object *sup=base+VM21;
  1330.     vs_reserve(VM21);
  1331.     check_arg(3);
  1332.     vs_top=sup;
  1333. TTL:;
  1334.     base[3]= base[1];
  1335.     base[4]= base[2];
  1336.     vs_top=(vs_base=base+3)+2;
  1337.     L59();
  1338.     return;
  1339. }
  1340. /*    function definition for WT-INLINE-COND    */
  1341.  
  1342. static L61()
  1343. {    register object *base=vs_base;
  1344.     register object *sup=base+VM22;
  1345.     vs_reserve(VM22);
  1346.     check_arg(3);
  1347.     vs_top=sup;
  1348. TTL:;
  1349.     princ_char(40,VV[40]);
  1350.     base[3]= base[1];
  1351.     base[4]= base[2];
  1352.     vs_top=(vs_base=base+3)+2;
  1353.     L59();
  1354.     vs_top=sup;
  1355.     princ_str("?Ct:Cnil)",VV[40]);
  1356.     base[3]= Cnil;
  1357.     vs_top=(vs_base=base+3)+1;
  1358.     return;
  1359. }
  1360. /*    function definition for WT-INLINE-FIXNUM    */
  1361.  
  1362. static L62()
  1363. {    register object *base=vs_base;
  1364.     register object *sup=base+VM23;
  1365.     vs_reserve(VM23);
  1366.     check_arg(3);
  1367.     vs_top=sup;
  1368. TTL:;
  1369.     if(!(number_compare(small_fixnum(0),symbol_value(VV[86]))==0)){
  1370.     goto T727;}
  1371.     princ_str("CMP",VV[40]);
  1372. T727:;
  1373.     princ_str("make_fixnum(",VV[40]);
  1374.     base[3]= base[1];
  1375.     base[4]= base[2];
  1376.     vs_top=(vs_base=base+3)+2;
  1377.     L59();
  1378.     vs_top=sup;
  1379.     princ_char(41,VV[40]);
  1380.     base[3]= Cnil;
  1381.     vs_top=(vs_base=base+3)+1;
  1382.     return;
  1383. }
  1384. /*    function definition for WT-INLINE-CHARACTER    */
  1385.  
  1386. static L63()
  1387. {    register object *base=vs_base;
  1388.     register object *sup=base+VM24;
  1389.     vs_reserve(VM24);
  1390.     check_arg(3);
  1391.     vs_top=sup;
  1392. TTL:;
  1393.     princ_str("code_char(",VV[40]);
  1394.     base[3]= base[1];
  1395.     base[4]= base[2];
  1396.     vs_top=(vs_base=base+3)+2;
  1397.     L59();
  1398.     vs_top=sup;
  1399.     princ_char(41,VV[40]);
  1400.     base[3]= Cnil;
  1401.     vs_top=(vs_base=base+3)+1;
  1402.     return;
  1403. }
  1404. /*    function definition for WT-INLINE-LONG-FLOAT    */
  1405.  
  1406. static L64()
  1407. {    register object *base=vs_base;
  1408.     register object *sup=base+VM25;
  1409.     vs_reserve(VM25);
  1410.     check_arg(3);
  1411.     vs_top=sup;
  1412. TTL:;
  1413.     princ_str("make_longfloat(",VV[40]);
  1414.     base[3]= base[1];
  1415.     base[4]= base[2];
  1416.     vs_top=(vs_base=base+3)+2;
  1417.     L59();
  1418.     vs_top=sup;
  1419.     princ_char(41,VV[40]);
  1420.     base[3]= Cnil;
  1421.     vs_top=(vs_base=base+3)+1;
  1422.     return;
  1423. }
  1424. /*    function definition for WT-INLINE-SHORT-FLOAT    */
  1425.  
  1426. static L65()
  1427. {    register object *base=vs_base;
  1428.     register object *sup=base+VM26;
  1429.     vs_reserve(VM26);
  1430.     check_arg(3);
  1431.     vs_top=sup;
  1432. TTL:;
  1433.     princ_str("make_shortfloat(",VV[40]);
  1434.     base[3]= base[1];
  1435.     base[4]= base[2];
  1436.     vs_top=(vs_base=base+3)+2;
  1437.     L59();
  1438.     vs_top=sup;
  1439.     princ_char(41,VV[40]);
  1440.     base[3]= Cnil;
  1441.     vs_top=(vs_base=base+3)+1;
  1442.     return;
  1443. }
  1444. /*    function definition for ARGS-CAUSE-SIDE-EFFECT    */
  1445.  
  1446. static L66()
  1447. {    register object *base=vs_base;
  1448.     register object *sup=base+VM27;
  1449.     vs_reserve(VM27);
  1450.     check_arg(1);
  1451.     vs_top=sup;
  1452. TTL:;
  1453.     base[1]= Cnil;
  1454.     {object V60;
  1455.     object V61;
  1456.     V60= base[0];
  1457.     V61= car((V60));
  1458. T758:;
  1459.     if(!(endp((V60)))){
  1460.     goto T759;}
  1461.     base[2]= Cnil;
  1462.     vs_top=(vs_base=base+2)+1;
  1463.     return;
  1464. T759:;
  1465.     {object V62= car((V61));
  1466.     if((V62!= VV[49])
  1467.     && (V62!= VV[33])
  1468.     && (V62!= VV[47]))goto T764;
  1469.     goto T763;
  1470. T764:;
  1471.     if((V62!= VV[124]))goto T765;
  1472.     {object V63;
  1473.     V63= caddr((V61));
  1474.     base[2]= (V63);
  1475.     if((simple_symlispcall_no_event(VV[125],base+2,1))==Cnil){
  1476.     goto T767;}
  1477.     base[2]= (V63);
  1478.     base[3]= cadddr((V61));
  1479.     base[4]= structure_ref(cadr((V61)),VV[0],2);
  1480.     vs_top=(vs_base=base+2)+3;
  1481.     L49();
  1482.     vs_top=sup;
  1483.     base[1]= vs_base[0];
  1484.     if((base[1])==Cnil){
  1485.     goto T767;}
  1486.     if((caddr(base[1]))==Cnil){
  1487.     goto T763;}
  1488. T767:;
  1489.     base[2]= Ct;
  1490.     vs_top=(vs_base=base+2)+1;
  1491.     return;}
  1492. T765:;
  1493.     base[2]= Ct;
  1494.     vs_top=(vs_base=base+2)+1;
  1495.     return;}
  1496. T763:;
  1497.     V60= cdr((V60));
  1498.     V61= car((V60));
  1499.     goto T758;}
  1500. }
  1501. /*    function definition for LIST-INLINE    */
  1502.  
  1503. static L67()
  1504. {    register object *base=vs_base;
  1505.     register object *sup=base+VM28;
  1506.     vs_reserve(VM28);
  1507.     vs_top[0]=Cnil;
  1508.     {object *p=vs_top;
  1509.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1510.     vs_top=sup;
  1511.     princ_str("list(",VV[40]);
  1512.     base[1]= make_fixnum(length(base[0]));
  1513.     (void)simple_symlispcall_no_event(VV[120],base+1,1);
  1514.     base[1]= base[0];
  1515.     base[2]= car(base[1]);
  1516. T790:;
  1517.     if(!(endp(base[1]))){
  1518.     goto T791;}
  1519.     goto T787;
  1520. T791:;
  1521.     base[3]= VV[87];
  1522.     (void)simple_symlispcall_no_event(VV[120],base+3,1);
  1523.     base[3]= base[2];
  1524.     (void)simple_symlispcall_no_event(VV[120],base+3,1);
  1525.     base[1]= cdr(base[1]);
  1526.     base[2]= car(base[1]);
  1527.     goto T790;
  1528. T787:;
  1529.     base[1]= VV[88];
  1530.     (void)simple_symlispcall_no_event(VV[120],base+1,1);
  1531.     base[1]= Cnil;
  1532.     vs_top=(vs_base=base+1)+1;
  1533.     return;
  1534. }
  1535. /*    function definition for LIST*-INLINE    */
  1536.  
  1537. static L68()
  1538. {    register object *base=vs_base;
  1539.     register object *sup=base+VM29;
  1540.     vs_reserve(VM29);
  1541.     vs_top[0]=Cnil;
  1542.     {object *p=vs_top;
  1543.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1544.     vs_top=sup;
  1545.     base[1]= make_fixnum(length(base[0]));
  1546.     {object V64= base[1];
  1547.     if(!eql(V64,VV[39]))goto T807;
  1548.     base[2]= car(base[0]);
  1549.     (void)simple_symlispcall_no_event(VV[120],base+2,1);
  1550.     base[2]= Cnil;
  1551.     vs_top=(vs_base=base+2)+1;
  1552.     return;
  1553. T807:;
  1554.     if(!eql(V64,VV[85]))goto T810;
  1555.     princ_str("make_cons(",VV[40]);
  1556.     base[2]= car(base[0]);
  1557.     (void)simple_symlispcall_no_event(VV[120],base+2,1);
  1558.     princ_char(44,VV[40]);
  1559.     base[2]= cadr(base[0]);
  1560.     (void)simple_symlispcall_no_event(VV[120],base+2,1);
  1561.     princ_char(41,VV[40]);
  1562.     base[2]= Cnil;
  1563.     vs_top=(vs_base=base+2)+1;
  1564.     return;
  1565. T810:;
  1566.     princ_str("listA(",VV[40]);
  1567.     base[2]= make_fixnum(length(base[0]));
  1568.     (void)simple_symlispcall_no_event(VV[120],base+2,1);
  1569.     base[2]= base[0];
  1570.     base[3]= car(base[2]);
  1571. T825:;
  1572.     if(!(endp(base[2]))){
  1573.     goto T826;}
  1574.     goto T822;
  1575. T826:;
  1576.     base[4]= VV[87];
  1577.     (void)simple_symlispcall_no_event(VV[120],base+4,1);
  1578.     base[4]= base[3];
  1579.     (void)simple_symlispcall_no_event(VV[120],base+4,1);
  1580.     base[2]= cdr(base[2]);
  1581.     base[3]= car(base[2]);
  1582.     goto T825;
  1583. T822:;
  1584.     base[2]= VV[88];
  1585.     (void)simple_symlispcall_no_event(VV[120],base+2,1);
  1586.     base[2]= Cnil;
  1587.     vs_top=(vs_base=base+2)+1;
  1588.     return;}
  1589. }
  1590. /*    function definition for DEFSYSFUN    */
  1591.  
  1592. static L69()
  1593. {    register object *base=vs_base;
  1594.     register object *sup=base+VM30;
  1595.     vs_reserve(VM30);
  1596.     check_arg(6);
  1597.     vs_top=sup;
  1598. TTL:;
  1599.     if((base[1])==Cnil){
  1600.     goto T842;}
  1601.     (void)(putprop(base[0],base[1],VV[89]));
  1602. T842:;
  1603.     if((base[2])==Cnil){
  1604.     goto T845;}
  1605.     base[8]=symbol_function(VV[134]);
  1606.     {object V65;
  1607.     object V66= base[2];
  1608.     if(endp(V66)){
  1609.     base[6]= Cnil;
  1610.     goto T848;}
  1611.     base[7]=V65=MMcons(Cnil,Cnil);
  1612. T849:;
  1613.     base[9]= (V66->c.c_car);
  1614.     vs_top=(vs_base=base+9)+1;
  1615.     funcall_no_event(base[8]);
  1616.     vs_top=sup;
  1617.     (V65->c.c_car)= vs_base[0];
  1618.     if(endp(V66=MMcdr(V66))){
  1619.     base[6]= base[7];
  1620.     goto T848;}
  1621.     V65=MMcdr(V65)=MMcons(Cnil,Cnil);
  1622.     goto T849;}
  1623. T848:;
  1624.     (void)(putprop(base[0],base[6],VV[90]));
  1625. T845:;
  1626.     if((base[3])==Cnil){
  1627.     goto T852;}
  1628.     base[7]= base[3];
  1629.     base[6]= simple_symlispcall_no_event(VV[134],base+7,1);
  1630.     (void)(putprop(base[0],base[6],VV[91]));
  1631. T852:;
  1632.     if((base[4])==Cnil){
  1633.     goto T857;}
  1634.     (void)(putprop(base[0],Ct,VV[92]));
  1635. T857:;
  1636.     if((base[5])==Cnil){
  1637.     goto T861;}
  1638.     base[6]= putprop(base[0],Ct,VV[93]);
  1639.     vs_top=(vs_base=base+6)+1;
  1640.     return;
  1641. T861:;
  1642.     base[6]= Cnil;
  1643.     vs_top=(vs_base=base+6)+1;
  1644.     return;
  1645. }
  1646.